﻿<%
Function qingsav(ByVal pid)
dim pidd
pidd=pid
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "select [content] from qingtian_showclass where [pid]="&pidd&" order by [nid] asc"
Rs.Open Sql,conn,1,1
if not (rs.bof and rs.eof)  then
For i=1 to rs.RecordCount
%>
<!--#include file="cssdate.inc"-->
<%
qingsav=cp.ubbshow(qingtian.wml(content))+qingsav
%>
<%                      
                    Rs.MoveNext
			next
			end if
			Rs.close
	set rs=nothing
end Function 
%>